home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1987 January
/
64er_Magazin_87-01_1987_Markt__Technik_de.d64
/
tabel. for-next
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
508b
|
29 lines
10 rem beDhnung brutto aus netto
20 dimnett(20)
30 dimmwst(20)
40 dimbrut(20)
50 rem einlesen der netto-werte
60 fori=0to20
70 printchr$(147)
80 print"nettowert "i":";:inputnett(i)
90 ifnett(i)=9999then110
100 nexti
110 rem beDhnen
120 fori=0to20
130 ifnett(i)=9999then160
140 mwst(i)=nett(i)*0.14
150 nexti
160 rem beDhnung brutto
170 fori=0to20
180 ifnett(i)=9999then210
190 brut(i)=nett(i)+mwst(i)
200 nexti
210 rem ausgeben der werte
220 printchr$(147)
230 print"netto","mwst","brutto"
240 fori=0to20
250 ifnett(i)=9999thenend
260 printnett(i),mwst(i),brut(i)
270 nexti
280 end